Top 10k strings from MicroHobby Semanal - Issue 085-088 (1986)(Hobby Press)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   6                             
   3 tin=tinta:
   3 ;"           ";
   3 ;"           "
   2 num1=num2:
   2 ganan=ganan+b*ofbe:
   2 ganan=ganan+a*ofco:
   2 cay2=cay+4
   2 cax+i,cay+j;p$
   2 c(m1)=c(m1)+1
   2 c$="                                "
   2 ;rest;"     "
   2 ;rest;"      "
   2 ;"SE PASA"
   2 ;"OFERTAS DE VENTA:":
   2 ;"BLACKJACK"
   2 ;"      ":
   2 3333*dinero
   2 &fff*dinero
   1 valor facial
   1 sonido ganador
   1 sonido de pasarse
   1 se desdobla
   1 saldo=saldo+s1+s2
   1 saldo);saldo;
   1 sacar una carta de la  baraja
   1 s2=s2+ap2*0.5
   1 s2=ap2*((pp2>ppo)-(pp2<ppo))
   1 s2=ap2*(((bc2=1
   1 s2=-ap2*(pp2=ppo)
   1 s1=s1+ap1*0.5
   1 s1=ap1*((pp1>ppo)-(pp1<ppo))
   1 s1=ap1*(((bc1=1
   1 s1=-ap1*(pp1=ppo)
   1 rest=rest-d*preso:
   1 rest=rest-(c*preac)
   1 rest=rest-(b*prebe):
   1 rest=dinero-(a*preco):
   1 rest-d*preso<0
   1 rest-c*preac<0
   1 rest-b*prebe<0
   1 punt=(m1=1
   1 pantalla  
   1 ofco=ofco+(
   1 ofbe=ofbe+(
   1 nume=num/mcd
   1 mcd=num2*(num2>1
   1 len=a1+(a2-a1)*(a2>a1)
   1 la banca tiene blackjack
   1 la banca se planta
   1 la banca se pasa
   1 jugador con blackjack
   1 juega la banca
   1 identificar carta
   1 ganan=rest:
   1 ganan=ganan+ofac*c:
   1 ganan=ganan+1000
   1 ganan=dinero
   1 ganan<dinero
   1 f1=ca-(palo-1
   1 evaluacion del juego
   1 eljugador se planta
   1 eljugador pide carta
   1 el jugador se pasa
   1 dobla la apuesta
   1 dinero=12000
   1 dinero-a*preco<0
   1 dibujo de las cartas
   1 deno=den/mcd
   1 cay=c(m1)+1
   1 cax,cay;f$;
   1 cax+i,j;" ":
   1 calculo del puntaje
   1 c$(len-a1+1
   1 b$(len-a2+1
   1 asegura el as
   1 RECTANGULAR A POLAR
   1 RADIANES A GRADOS
   1 Quasar    G*
   1 PROGRAMAS INCLUIDOS EN  
   1 PRESENTACION
   1 POLAR A RECTANGULAR
   1 Microhobby
   1 LA FRACCION ES                  a(1)/a(2)
   1 HAY QUE DEFINIR LA              VARIABLE fix
   1 GRADOS A RADIANES
   1 Funcion   V
   1 FUNCION TANGENTE HIPERBOLICO
   1 FUNCION SENO HIPERBOLICO
   1 FUNCION RAIZ ENE-ESIMA
   1 FUNCION PAR-IMPAR
   1 FUNCION MINIMO DE DOS NUMEROS
   1 FUNCION MAXIMO DE DOS NUMEROS
   1 FUNCION MANTISA DE UN NUMERO
   1 FUNCION LOGARITMO EN BASE a.
   1 FUNCION FIX
   1 FUNCION EXPONENENTE DE UN NUMERO
   1 FUNCION ELEVAR A UNA FRACCION
   1 FUNCION ELEVAR A UN REAL
   1 FUNCION ELEVAR A UN ENTERO
   1 FUNCION COSENO HIPERBOLICO
   1 FRACICION IRREDUCIBLE
   1 FRACCIONES
   1 Created with Ramsoft MakeTZX
   1 Cargador  M
   1 Black     58
   1 Bibli XIV [
   1 BLACKJACK version 2
   1 ASIGNACION DE VALORES
   1 =x*1x)=x*180
   1 =(x+y)=(x+y-
   1 =(x+y)=(x+y+
   1 =(p=q)=(p=1
   1 ;'';"Comienza tu mision. Suerte chico"
   1 ;'"   Debes de comprar lo que tu   creas que te va a ser util para comerciar con los planetas que  vas a visitar.":
   1 ;"tu aceite.":
   1 ;"Viajas durante varios a
   1 ;"Vale ";ofco;"?":
   1 ;"Vale ";ofbe;" ?      ":
   1 ;"UN MOMENTO";
   1 ;"Tus ganancias por ventas son:":
   1 ;"Tu dispones de:";
   1 ;"Tras librarte de la resaca de   brotes; inicias de nuevo el     vuelo.":
   1 ;"Tienes ";dinero
   1 ;"Te valen 1000 por un soporifero colega?.":
   1 ;"Te encuentras con unos tipos muyextra
   1 ;"Te encuentras a unas doscientas rayas de SER, la ciudad de los  traficantes de soporiferos.";
   1 ;"TRAS LA VENTA DE TUS MERCANCIAS,PARTES CON RUMBO A OTRO PLANETA.":
   1 ;"Soporiferos= ";preso
   1 ;"Se te acercan y comienzan a ha- blar contigo."
   1 ;"SE TE ACABO LA AVENTURA ESPACIAL":
   1 ;"SALDO:":
   1 ;"RESULTADOS:";
   1 ;"Pues tu te lo pierdes tio.":
   1 ;"Pues no hay compra":
   1 ;"Prueba de nuevo.":
   1 ;"Por fin vuelves a casa, despues de realizar tus ventas."
   1 ;"Por fin alunizas en SER.        Debes de buscar compradores.":
   1 ;"Por comida:":
   1 ;"Por bebida:":
   1 ;"PULSAR TECLA, PARA CONTINUAR ":
   1 ;"PARAR LA CINTA":
   1 ;"P=PLANTARSE":
   1 ;"Otra mano s/n ?"
   1 ;"Obten buen precio!":
   1 ;"Necesito de";
   1 ;"Necesita alimentos":
   1 ;"Mejor: ";ofco;"?     ":
   1 ;"Mejor: ";ofbe;" ?":
   1 ;"Me lo quedo!!!!!!!!";
   1 ;"MICROHOBBY";
   1 ;"La policia galactica te persiguedesde hace rato. Sospechan de tiy te abordan." :
   1 ;"LA AVENTURA";
   1 ;"Juego:  ";nj;
   1 ;"Juego 2"
   1 ;"Hola humano.":
   1 ;"Hasta otra, trafi.":
   1 ;"Has traspasado los limites de loconocido, compruebas tu posicionen el mapa interestelar de que  dispones, eliges un planeta y   te desvias hacia el.":
   1 ;"Has llegado a Quasar.";
   1 ;"Examinas tu carga y te diriges  hacia alli."
   1 ;"Esta en guerra":
   1 ;"ESTOY BARAJANDO":
   1 ;"Dirige tu nave con los cursores hasta aterrizar en el espacio-  puerto.":
   1 ;"Demasiado caro.";
   1 ;"Demasiado caro.    ":
   1 ;"DEL SIGLO"                  
   1 ;"DATOS PLANETA:";
   1 ;"D= DESDO";
   1 ;"Cuanto pides ?.  ";
   1 ;"Contento con tus nuevos ingresoste diriges a tu nave.";
   1 ;"Comida=      ";preco
   1 ;"Comi: ";a;" Bebi: ";b:
   1 ;"C=  CARTA  ";
   1 ;"Bebida=      ";prebe
   1 ;"Apuesta:";ap
   1 ;"Antes:   ";
   1 ;"Altura:";p;
   1 ;"Aceite=      ";preac
   1 ;"ASEGURADO"
   1 ;"APUESTA";
   1 ;"A= ASEGURAR";
   1 ;"----------";
   1 ;"*BLACKJACK*       SALDO=        "
   1 ;" metros":
   1 ;" LA APUESTA":
   1 ;" K= DOBLAR ";
   1 ;" BLARSE ":
   1 ;"   TE PASASTES, HAS PERECIDO.   ":
   1 ;"   Por fin avistas un planeta.          Te  acercas a el.       ":
   1 ;"   Has despegado de Quasar,te   diriges a mundos desconocidos.":
   1 ;"   Este es un planeta de comer- ciantes, al igual que tu.":
   1 ;"   EL  AS  ":
   1 ;"    *   * **   *    *    () *   *  ----------*  * () *  *  * ()*@  * *  *   * *  *  *   *   *  ** *    * ()  *   *   *   *   *      *   *   * *       *   * *  **  *()*  *   *  *** * *  *  * * * () *@  * *   *   *  ()  **   *"
   1 ;"       OFERTAS DEL DIA          ":
   1 ;"        PARA EL CASSETTE        "
   1 ;"        ";
   1 ;"        ":
   1 ;"         ":
   1 ;"          ";
   1 ;"           ":
   1 ;"            ":
   1 ;"               "
   1 ;"                 ":
   1 ;"                  ";
   1 ;"                     ";
   1 ;"                                ":
   1 ;"                                                                ":
   1 ;"                                                                "
   1 ,c(m1))=fa
   1 ,c(m1))=ca:
   1 *(len-a2),p2-7
   1 *(len-a1),p2+1
   1 ),c(m1))=fa
   1 ),c(m1))=ca:
   1 (num1/num2)*num2-num1):
   1 (nu2/mcd):
   1 (nu2*nu1)*
   1 (nu1/mcd):
   1 '';"Elige lo que necesites:":
   1 ''"Tu beneficio es de:";ganan-dinero
   1 ''"Con ""0"" finalizas el alunizaje":
   1 ''"   Solo te puedes guiar por tu  sed de comerciante intrepido."
   1 '"Te han encontrado la carga en elcompartimento secreto.          Se apoderan de ella y te detie- nen acusado de trafico de sopo- riferos.":
   1 '"Sabes que quizas tu futuro sea  el de comerciante?.":
   1 '"No has sacado tajada esta vez,  prueba de nuevo.":
   1 '"Menos el dinero que gastaste en comprarlas:";ganan-dinero
   1 '"Intentalo de nuevo.":
   1 '"Eres muy mal comerciante lo si- ento, pero dedicate a otra cosa.":
   1 '"Eres buen comerciante, sigue    practicando.":
   1 '"Comprete una tienda y a vender, que eres maravilloso en eso":
   1 "Soporiferos= ";d:
   1 "No se como explicarte que lo tu-yo es el comercio.":
   1 "Comida= ";a:
   1 "COMERCIANTE 2010":
   1 "Bebida= ";b:
   1 "Apuesta $ (2-100) ?";ap
   1 "Aceite= ";c:
   1  JXER 1985"
   1  J.Ximenez de Embun R. 1985
   1  Francisco Calle Carrascosa  "
   1   ESTA CINTA UTILIZA    
   1    O LOAD "<NOMBRE>"    
   1      PARA CARGAR LOS    
   1          LOAD ""        
   1